home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 June / 64er_Magazin_86-06_1986_Markt__Technik_de_Side_A.d64 / swap bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  28 lines
  1. 10 rem ****** swap testprogramm ******
  2. 20 printchr$(147):rem c 128 = wait0,1
  3. 30 poke53280,0:poke53281,5
  4. 40 poke241,1:rem c64 = poke 646,1
  5. 50 rem ----- farbram belegen (aeltere c64) -----
  6. 60 for i=0 to 1000:poke55296+i,1:nexti:rem das dauert etwas
  7. 70 rem ----- bildschirm belegen -----
  8. 80 print"was die alte dame empfindet, wenn sie,  nachdem sie ihren kanarienvogel "
  9. 90 print"gefuettert hat und spazieren gegangen   ist, bei der rueckkehr den kaefig "
  10. 100 print"mit einem lebendigen truthahn zum       platzen voll findet,"
  11. 110 printchr$(17)chr$(17)chr$(17)chr$(17)chr$(17)
  12. 120 print"oder der alte herr,der,nachdem er ueber nacht seinen kleinen terrier "
  13. 130 print"an die kette gelegt hat, ein nilpferd   findet, das um die hundhuette "
  14. 140 print"herum schnaubt...":printtab(20)"(lewis carroll 1882)"
  15. 150 printchr$(17)chr$(17)"jeder tastendruck fuehrt zum tausch"
  16. 160 geta$:ifa$=""then160
  17. 170 rem ----- parameter festlegen -----
  18. 180 b1=1024:rem startadresse bereich 1
  19. 190 b2=1504:rem startadresse bereich 2
  20. 200 l =240:rem laenge = 6 zeilen zu je 40 zeichen
  21. 210 rem ----- parameter uebergeben -----
  22. 220 a=int(b1/256):poke255,a:poke254,b1-256*a
  23. 230 a=int(b2/256):poke253,a:poke252,b2-256*a
  24. 240 a=int(l/256):poke251,a:poke250,l-256*a
  25. 250 rem ----- swap ausfuehren -----
  26. 260 sys4864:rem c64 = sys 49152
  27. 270 goto160
  28.